CAAMoonPhases_K <-
function(Year){
.Call("CAAMoonPhases_K", Year)
}
